From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Wed, 26 Aug 2020 09:28:18 +0000 (+0200)
Subject: Remove side-effect-free markup for assoc-default
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~16^2~5614
X-Git-Url: https://dgit.raspbian.org/%22http://www.example.com/cgi/%22/%22http:/www.example.com/cgi/%22?a=commitdiff_plain;h=99fe2a2643ce67f04a908ffd3fe07746860486f0;p=emacs.git

Remove side-effect-free markup for assoc-default

* lisp/subr.el (assoc-default): assoc-default isn't
side-effect-free, because it takes a :test parameter that can do
anything (bug#37943).
---

diff --git a/lisp/subr.el b/lisp/subr.el
index 660367642aa..08ff38ff8c1 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -766,7 +766,6 @@ If that is non-nil, the element matches; then `assoc-default'
 
 If no element matches, the value is nil.
 If TEST is omitted or nil, `equal' is used."
-  (declare (side-effect-free t))
   (let (found (tail alist) value)
     (while (and tail (not found))
       (let ((elt (car tail)))